Group=Effect
Name=|R|Rg
Init=coord=0;\nvTplane=1;\n?a1,|R|RTCY,1,50,10;\n?a3,|R|R,0,10,1;\na3=(10+a3)/10;\na2=a3*a1*a1;\ncx=cy=0;\n
Prog=b1=x-2*a1*int(x/(2*a1))-a1;\nb2=a1-sqrt(a2-b1*b1)/a3-0.1;\nif(b2>y){\nT=0;\n} \nif((ys-1)-b2<y){\nT=0;\n} \nb3=y-2*a1*int(y/(2*a1))-a1;\nb4=a1-sqrt(a2-b3*b3)/a3-0.1;\nif(b4>x){\nT=0;\n} \nif((xs-1)-b4<x){\nT=0;\n} \n
